home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b5.d64 / get'dir.l < prev    next >
Text File  |  2007-02-28  |  453b  |  16 lines
  1. 9000 //
  2. 9010 PROC GET'DIR(NAME$,REF D$(),REF F'TYPE#(),REF F'BLOCKS#(),REF COUNT) 
  3. 9020 DIR'FILE:=8
  4. 9030 OPEN FILE DIR'FILE,NAME$,READ
  5. 9040 READ FILE DIR'FILE: DISK'ID$
  6. 9050 READ FILE DIR'FILE: BLOCKS'FREE
  7. 9060 READ FILE DIR'FILE: DISK'NAME$
  8. 9070 READ FILE DIR'FILE: COUNT
  9. 9080 READ FILE DIR'FILE: DATE$
  10. 9090 FOR X:=1 TO COUNT DO
  11. 9100 READ FILE DIR'FILE: D$(X),F'TYPE#(X),F'BLOCKS#(X)
  12. 9110 ENDFOR X
  13. 9120 CLOSE FILE DIR'FILE
  14. 9130 ENDPROC GET'DIR
  15. 9140 //
  16.